home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / pc / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS031.dsk / USS ENTERPRISE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  78 lines
  1. 0  LIST 25900
  2. 1  FOR X = 1 TO 2000: NEXT X
  3. 100  TEXT : HOME : INVERSE : VTAB 10: HTAB 11: PRINT " U.S.S. ENTERPRISE ": NORMAL 
  4. 110  VTAB 12: HTAB 18: PRINT " BY "
  5. 120  VTAB 14: HTAB 12: PRINT " DAVID CUSIMANO "
  6. 1000  FOR I = 1 TO 4000: NEXT I: FOR I = 1 TO 10: PRINT  CHR$(7);: NEXT I
  7. 2000  GR 
  8. 2100  COLOR= 2
  9. 2110  HLIN 3,36 AT 15
  10. 2120  HLIN 5,34 AT 16
  11. 2130  HLIN 11,29 AT 17
  12. 2140  HLIN 12,28 AT 18
  13. 2150  HLIN 15,25 AT 19
  14. 2160  HLIN 18,22 AT 20
  15. 2170  PLOT 20,21
  16. 2200  COLOR= 15
  17. 2210  HLIN 16,17 AT 16
  18. 2220  PLOT 24,18
  19. 2300  COLOR= 10
  20. 2310  VLIN 21,24 AT 19
  21. 2320  VLIN 22,24 AT 20
  22. 2330  VLIN 21,24 AT 21
  23. 2400  COLOR= 2
  24. 2410  HLIN 8,32 AT 14
  25. 2420  HLIN 16,24 AT 13
  26. 2430  HLIN 18,22 AT 12
  27. 2440  HLIN 19,21 AT 11
  28. 2450  PLOT 20,10
  29. 2500  COLOR= 14
  30. 2510  PLOT 8,13: PLOT 32,13
  31. 2520  COLOR= 7
  32. 2530  VLIN 11,12 AT 7: VLIN 11,12 AT 4: VLIN 11,12 AT 33: VLIN 11,12 AT 36
  33. 2540  HLIN 5,6 AT 10: HLIN 5,6 AT 13
  34. 2550  HLIN 34,35 AT 10: HLIN 34,35 AT 13
  35. 2600  COLOR= 10
  36. 2610  PLOT 3,12
  37. 2620  PLOT 37,12
  38. 2700  COLOR= 3
  39. 2710  VLIN 11,12 AT 5: VLIN 11,12 AT 6
  40. 2720  VLIN 11,12 AT 34: VLIN 11,12 AT 35
  41. 2800  COLOR= 14
  42. 2810  FOR I = 10 TO 17
  43. 2820  PLOT I,I +7
  44. 2830  NEXT I
  45. 2900  FOR I = 30 TO 23  STEP  -1
  46. 2910  PLOT I,47 -I
  47. 2920  NEXT I
  48. 3000  COLOR= 2
  49. 3100  HLIN 18,22 AT 25
  50. 3110  PLOT 17,26
  51. 3120  PLOT 16,27
  52. 3130  PLOT 23,26
  53. 3140  PLOT 24,27
  54. 3150  PLOT 15,28
  55. 3160  PLOT 25,28
  56. 3170  PLOT 16,29
  57. 3180  PLOT 24,29
  58. 3190  PLOT 17,30
  59. 3200  PLOT 23,30
  60. 3210  HLIN 18,22 AT 31
  61. 3300  COLOR= 14
  62. 3310  PLOT 20,28
  63. 3400  PLOT 18,27
  64. 3410  HLIN 19,21 AT 26
  65. 3420  PLOT 22,27
  66. 3430  PLOT 17,28
  67. 3440  PLOT 23,28
  68. 3450  PLOT 18,29
  69. 3460  HLIN 19,21 AT 30
  70. 3470  PLOT 22,29
  71. 4000  HOME : VTAB 22: PRINT " FRONT VIEW OF THE USS ENTERPRISE "
  72. 4010  POKE 34,23
  73. 25900  REM <CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>           <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H><CTRL-H>FROM:  APPLE-CAN<CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  74. 63000  REM <CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J><CTRL-J>
  75. 63100  REM  FRONT VIEW OF THE<CTRL-J>
  76. 63110  REM  U.S.S. ENTERPRISE<CTRL-J><CTRL-J>
  77. 63120  REM  BY   DAVID CUSIMANO<CTRL-J><CTRL-J>
  78. 63160  REM   AGE - 14<CTRL-J><CTRL-J>